home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
New Star Software Collection
/
NSS_Collection.iso
/
3-170 dbase 10 for windows
/
1.ima
/
SAMPLES.PAK
/
OPENWIND.PRG
< prev
next >
Wrap
Text File
|
1993-07-26
|
2KB
|
57 lines
*******************************************************************************
* PROGRAM: Openwind.prg
*
* WRITTEN BY: Borland Late Night Crew
*
* DATE: 7/19/93
*
* UPDATED:
*
* VERSION: Alpha α
*
* DESCRIPTION: Openwind shows how Bladerunner's window commands work together
* to open and close different kinds of windows.
* A window is OPENed, containing a listbox of European countries,
* and a pushbutton -- Info. Selecting Info or the listbox
* brings up another window with information about the selected
* country. You can bring up as many of these windows as
* thre are available workareas. Pressing Cancel in any
* information window will close that window.
*
* PARAMETERS: None
*
* CALLS: None
*
* USAGE: DO Openwind
*
*
*
*******************************************************************************
#define ALLTRIM(x) ltrim(rtrim(x))
set talk off
public windcnt
windCnt = 0 && variable for count of information windows
* since the program is event driven, you need to SET PROCEDURE to this file
* so that at the end of the main program, when you are effectively located in
* the command window, all the procedures will be available when a selection
* is made.
set procedure to sampproc
use country in select()
select country
define window Europe from 5,5 to 20,25 title "Country" of application;
sizeable;
onclose Clean_Openwindow() && clean up when you leave the window
define listbox country of Europe prompt field country->name from 2,3 to 10,18
define pushbutton info of Europe prompt " Info " at 13,6
on selection window Europe do ShowInfo
* OPEN WINDOW opens the window, but doesn't stop control flow. So the next line
* is executed after the window appears on the screen.
open window Europe
* Make the window Europe have focus
set focus to Europe
return
******************************* End of OpenWind.prg ****************************